home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / scripts.arc / KEB.SLT < prev    next >
Text File  |  1990-05-11  |  3KB  |  76 lines

  1. /////////////////////////////////////////////////////////////////////////
  2. //             TBBS.SLT  -  by Terry Robertson (October 1988)          //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //    SCRIPT TO LOG-ON TO A TBBS SYSTEM.                               //
  6. //                                                                     //
  7. //    Please note that this script expects you to have assigned your   //
  8. //    FIRST NAME to function key F1 and your LAST NAME to function key //
  9. //    F2. The easiest way to do this is by using the FKEY script in    //
  10. //    this collection.                                                 //
  11. //                                                                     //
  12. //    In addition, the script is written so that it will abort if you  //
  13. //    have not completed the relevant PASSWORD entry in the Dialling   //
  14. //    Directory.                                                       //
  15. //                                                                     //
  16. //    I have assumed that you want to use the linked scripts CONNECT   //
  17. //    and CAPTURE. If you do not have these or prefer not to use       //
  18. //    them you should "comment out" the two lines starting "call"      //
  19. //    by simply putting "//" before the word "call".                   //
  20. //                                                                     //
  21. /////////////////////////////////////////////////////////////////////////
  22.  
  23. str f[15];
  24. str s[20];
  25.  
  26. main()
  27.  
  28. {
  29.  alarm(1);
  30.  
  31.  call("connect", 1);                    // Gives "connect" information by
  32.                                         // calling Connect.slc script
  33.  call("capture", 1);                    // Opens new capture file by calling
  34.                                         // Capture.slc script
  35.  cputs("^M");                // send RETURN to trigger
  36.  
  37.  if (not _entry_pass)                   // no pass, so didn't recog. board
  38.   {
  39.    prints ("Sorry, I don't know the password for this BBS!");
  40.    return;
  41.   }
  42.  
  43.  if (not waitfor("First Name?"))        // if no prompt for first name
  44.   {
  45.    prints("Log-on failed!");
  46.    return;                              // ...abort
  47.   }
  48.  
  49.  keyget(0x3b00, 0, f);
  50.  delchrs(f, strlen(f) - 2, strlen(f));
  51.  cputs(f);
  52.  cputs("^M");
  53.  
  54.  if (not waitfor("Last Name ?"))         // if no prompt for surname
  55.   {
  56.    prints("Log-on failed!");
  57.    return;                              // ...abort
  58.   }
  59.    keyget(0x3c00, 0, s);
  60.    delchrs(s, strlen(s) - 2, strlen(s));
  61.    cputs(s);
  62.    cputs("^M");
  63. //Waitfor(" correct?");
  64. //   cputs("y");
  65.  
  66.  if (not waitfor("User Code?"))          // if no prompt for password
  67.   {
  68.    prints("Log-on failed!");
  69.    return;                              // ...abort
  70.   }
  71.    cputs(_entry_pass);                    // send password
  72.    cputs("^M");
  73.  
  74.  
  75.  }
  76.